home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Commands / make_skels < prev    next >
Encoding:
Text File  |  1989-04-14  |  443 b   |  17 lines
  1. #! /bin/csh -f
  2. echo "" >! commands.h
  3. foreach i (`cat files`)
  4.     set i = `echo $i | sed 's/\./ /g'`
  5.     set filename = $i[1].h
  6.     set name = '"'$i[1]'"'
  7.     set id = `echo $i[1] | upcase`
  8.     set arg = ARG_`echo $i[2] | upcase`
  9.     set fn = $i[3]
  10.     echo "#ifdef NAMES" >! $filename
  11.     echo "use($name,$id,$fn,$arg)" >> $filename
  12.     echo "#endif" >> $filename
  13.     echo '#include "Commands/'$filename'"' >> commands.h
  14.     echo $name done
  15. end
  16. mv commands.h ..
  17. #upcase chcase